home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples2 / StingLibPCQ / English / Trial_Str_C_Pos.p < prev    next >
Encoding:
Text File  |  1997-05-06  |  344 b   |  26 lines
  1. program essai;
  2.  
  3. {$I "include:utils/string.i"}
  4.  
  5. var
  6.     s : string;
  7.     c : char;
  8.     p : Str_ListPtr;
  9.  
  10. begin
  11.     s := allocstring(80);
  12.     write('Enter a string : ');
  13.     readln(s);
  14.     write('Enter a char : ');
  15.     readln(c);
  16.     p := Str_C_Pos(s,c);
  17.     while p<>nil do
  18.     begin
  19.         write(p^.pos:3);
  20.         p := p^.next;
  21.     end;
  22.     writeln;
  23.     if p<>nil then
  24.         Str_FreeStr_List(p);
  25. end.
  26.